home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility3 / vbawk.zip / AWK.FRM next >
Text File  |  1993-07-12  |  4KB  |  152 lines
  1. VERSION 2.00
  2. Begin Form Awk 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "AWKsome Demo"
  5.    Height          =   4245
  6.    Left            =   1155
  7.    LinkTopic       =   "Form1"
  8.    ScaleHeight     =   3780
  9.    ScaleWidth      =   7485
  10.    Top             =   1230
  11.    Width           =   7665
  12.    Begin VideoSoftElastic VSElastic1 
  13.       Align           =   5  'Fill Container
  14.       AutoSizeChildren=   4  'Uneven Vertically
  15.       BackColor       =   &H00C0C0C0&
  16.       BevelInner      =   3  'Inset
  17.       BevelInnerWidth =   1
  18.       BevelOuter      =   2  'Raised Outlined
  19.       BevelOuterWidth =   2
  20.       BorderWidth     =   6
  21.       Caption         =   ""
  22.       CaptionPos      =   1  'Left Center
  23.       ChildSpacing    =   6
  24.       FloodColor      =   &H000000C0&
  25.       FloodDirection  =   0  'None
  26.       FloodPercent    =   0
  27.       Height          =   3270
  28.       Left            =   0
  29.       Splitter        =   0  'No
  30.       TabIndex        =   0
  31.       Top             =   0
  32.       Width           =   7485
  33.       Begin ListBox List1 
  34.          Height          =   2370
  35.          Left            =   90
  36.          TabIndex        =   1
  37.          Top             =   810
  38.          Width           =   7305
  39.       End
  40.       Begin VideoSoftElastic VSElastic2 
  41.          Align           =   0  'None
  42.          AutoSizeChildren=   1  'Even Horizontally
  43.          BackColor       =   &H00C0C0C0&
  44.          BevelInner      =   3  'Inset
  45.          BevelInnerWidth =   1
  46.          BevelOuter      =   0  'None
  47.          BevelOuterWidth =   2
  48.          BorderWidth     =   6
  49.          Caption         =   ""
  50.          CaptionPos      =   1  'Left Center
  51.          ChildSpacing    =   6
  52.          FloodColor      =   &H000000C0&
  53.          FloodDirection  =   0  'None
  54.          FloodPercent    =   0
  55.          Height          =   630
  56.          Left            =   90
  57.          Splitter        =   0  'No
  58.          TabIndex        =   3
  59.          Top             =   90
  60.          Width           =   7305
  61.          Begin CommandButton Command1 
  62.             Caption         =   "Get AUTOEXEC.BAT"
  63.             Height          =   450
  64.             Index           =   1
  65.             Left            =   3690
  66.             TabIndex        =   5
  67.             Top             =   90
  68.             Width           =   3525
  69.          End
  70.          Begin CommandButton Command1 
  71.             Caption         =   "Get CONFIG.SYS"
  72.             Height          =   450
  73.             Index           =   0
  74.             Left            =   90
  75.             TabIndex        =   4
  76.             Top             =   90
  77.             Width           =   3510
  78.          End
  79.       End
  80.    End
  81.    Begin VideoSoftElastic StatusBar 
  82.       Align           =   2  'Align Bottom
  83.       AutoSizeChildren=   0  'None
  84.       BackColor       =   &H00C0C0C0&
  85.       BevelInner      =   3  'Inset
  86.       BevelInnerWidth =   1
  87.       BevelOuter      =   1  'Raised
  88.       BevelOuterWidth =   1
  89.       BorderWidth     =   6
  90.       Caption         =   ""
  91.       CaptionPos      =   4  'Center Center
  92.       ChildSpacing    =   6
  93.       FloodColor      =   &H0080FFFF&
  94.       FloodDirection  =   1  'Right
  95.       FloodPercent    =   0
  96.       Height          =   510
  97.       Left            =   0
  98.       Splitter        =   0  'No
  99.       TabIndex        =   2
  100.       Top             =   3270
  101.       Width           =   7485
  102.    End
  103.    Begin VideoSoftAwk VSAwk 
  104.       Case            =   2  'to lower
  105.       FS              =   " ="
  106.       Left            =   45
  107.       Top             =   2790
  108.    End
  109. End
  110. Option Explicit
  111. Const Blank = 0
  112.  
  113. Sub Command1_Click (Index%)
  114.   List1.Clear
  115.  
  116.   Select Case Index
  117.     Case 0
  118.           vsawk.FileName = "c:\config.sys"
  119.     Case 1
  120.           vsawk.FileName = "c:\autoexec.bat"
  121.   End Select
  122.  
  123.   ' start parsing
  124.   vsawk.Action = 0
  125. End Sub
  126.  
  127. Sub Form_Resize ()
  128.   VSElastic1.Top = 0
  129. End Sub
  130.  
  131. Sub VSAwk_Begin ()
  132.   mousepointer = 11
  133. End Sub
  134.  
  135. Sub VSAwk_End ()
  136.   StatusBar = "FILE: " & vsawk.FileName & "    LINES: " & vsawk.RN
  137.   mousepointer = 0
  138.   StatusBar.FloodPercent = 0
  139. End Sub
  140.  
  141. Sub VSAwk_Scan ()
  142.  
  143.   StatusBar.FloodPercent = vsawk.PercentDone
  144.   StatusBar = Format(vsawk.PercentDone) & " %"
  145.   StatusBar.Refresh
  146.  
  147.   'add scanned line to the list
  148.   List1.AddItem vsawk.F(0)
  149.  
  150. End Sub
  151.  
  152.